home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
remctl58.zip
/
HOST-QM.HST
< prev
next >
Wrap
Text File
|
1987-12-03
|
4KB
|
161 lines
;QMODEM HOST SCRIPT - Parameter Setup Module
Setup_Start:
Clrscr
Note Qmodem HOST SCRIPT [ Parameter Setup ]
Note ________________________________________________________________
Note
Displayln " PROCESSING MODES AVAILABLE:"
Displayln " "
Displayln " 1.) Unprotected System - No Passwords "
Displayln " 2.) Protected System - Passwords Used "
Displayln " 3.) Secure System - Call Back System "
DisplayLn " 4.) LOCAL Testing by SYSOP "
Displayln " "
Display " Number Selected ==> "
Inkey 0 1
Colorfg 15
Displayln "$0"
Colorfg 14
If '$0' = '1' Unprotected
If '$0' = '2' Protected
If '$0' = '3' Call_Back
If '$0' = '4' Local_Only
Goto Setup_Start
Call_Back:
Assign PWORDS "Y"
Assign STATUS "CALLBACK"
Assign PWORD1 " "
Assign PWORD2 " "
Note
Write " Enter the CALLBACK PASSWORD [8 Characters max.] > "
Colorfg 15 ;bright white
Get CALLBAK 8
Colorfg 14 ;yellow
Note
Writeln " Enter the CALLBACK phone number and prefixes"
Write " e.g. 9,987-3274 > "
Colorfg 15 ;bright white
Get CALL_BK_NO 25
Colorfg 14 ;yellow
Goto Chat_Check
Protected:
Assign PWORDS "Y"
Assign STATUS " "
Note
Write " Enter 1st Password [8 Characters max.] > "
Colorfg 15 ;bright white
Get PWORD1 8
Colorfg 14 ;yellow
Write " Enter 2nd Password [8 Characters max.] > "
Colorfg 15 ;bright white
Get PWORD2 8
Colorfg 14 ;yellow
Note
Write " Enter the SYSOP's Password [8 Characters max.] > "
Colorfg 15 ;bright white
Get SYSOPPW 8
Colorfg 14 ;yellow
Goto Chat_Check
Chat_Check:
Note
Display " Will Chat Mode be made available? [ Y/N ] > "
Inkey 2
Colorfg 15 ;bright white
Displayln "$2"
Colorfg 14 ;yellow
Goto Modem_Select
Modem_Select:
Note
Display " Modem in Use: [ 1 ] Hayes 2400 [ 2 ] USR HST 9600 > "
Inkey 3
Colorfg 15 ;bright white
Displayln "$3"
Colorfg 14 ;yellow
Clrscr
Colorfg 15 ;bright white
Goto Summary_Display
Summary_Display:
Note Summary Information
Note -------------------
Colorfg 14 ;yellow
Note
If "$PWORDS" <> "Y" No_Pswds
If "$STATUS" = "CALLBACK" Call_Stat
Note The Password(s) are set to: $PWORD1 -and- $PWORD2
Note
Note The SYSOP's Password is set to: $SYSOPPW
Note
Goto Chat_Status
Call_Stat:
Note The HOST is in CALLBACK MODE
Note
Note The Key PASSWORD is [ $CALLBAK ] and the PHONE NO.
Note to call is [ $CALL_BK_NO ]
Note
Goto Chat_Status
No_Pswds:
Note No Passwords are in effect for this session.
Note
Chat_Status:
If "$2"= "Y" Yes_Chat
Note Chat Mode will NOT be Active.
Goto Modem_Status
Yes_Chat:
Note Chat Mode will be ACTIVE.
Modem_Status:
Note
If "$3" = "1" HAYES_
If "$3" = "2" USR_HST_
Goto Unknown_Modem_
Hayes_:
Note A Hayes Smartmodem 2400 is in use.
Goto Continue_1
USR_HST_:
Note A USRobotics Courier HST modem is in use.
Goto Continue_1
Unknown_Modem_:
Note An UNKNOWN Modem brand is in use.
Note Using the Hayes as the default.
Continue_1:
Note
Colorfg 12
Display " ARE ALL VALUES CORRECT? Y/N > "
Inkey 5
Colorfg 15
Displayln "$5"
Colorfg 14
If "$5" = "Y" All_Done
Goto Setup_Start
All_Done:
Return
Unprotected:
Assign PWORDS "N"
Assign STATUS " "
Assign PWORD1 " "
Assign PWORD2 " "
Goto Chat_Check
Local_Only:
Assign STATUS "LOCAL"
Assign PWORDS "N"
Assign PWORD1 "LOCAL"
Assign 2 "N"
Return